home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
oop_tp55.zip
/
LIST1_4.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-12-10
|
1KB
|
65 lines
type
string32 = string[32];
Proc = procedure( aa: integer; bb: real; cc : string;
var a : integer; var b : real; var c : string32 );
XYZ = object
a : integer;
b : real;
c : string32;
init : Proc;
end;
{$F+}
procedure Init( aa : integer; bb : real; cc : string;
var a : integer; var b : real;
var c : string32 );
begin
a := aa;
b := bb;
c := cc;
end;
{$F-}
var
R : XYZ;
begin
R.Init := Init;
R.Init( 1234, 2.71, 'This is a test', R.a, R.b, R.c);
writeln( 'The integer value is ', R.a );
writeln( 'The string value is "', R.c, '"' );
writeln( 'The real value is ', R.b );
end.